home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / demos / pythagorean.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.4 KB  |  46 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.222535, 0.205634, "1");
  3. v2 = .free(0.16338, 0.0535211, "2");
  4. l1 = .l.vv(v1, v2);
  5. l2 = .l.vlperp(v1, l1, .invisible);
  6. v3 = .vonl(l2, -0.146273, 0.399114, .plus);
  7. l3 = .l.vv(v3, v2, .magenta);
  8. l4 = .l.vv(v1, v3, .invisible);
  9. c1 = .c.vv(v2, v3, .invisible);
  10. l5 = .l.vlperp(v2, l3, .invisible, .longline);
  11. v4 = .v.lc(l5, c1, 1);
  12. l6 = .l.vv(v2, v4, .magenta);
  13. l7 = .l.vlperp(v4, l6, .invisible, .longline);
  14. l8 = .l.vlperp(v3, l3, .invisible, .longline);
  15. v5 = .v.ll(l8, l7);
  16. l9 = .l.vv(v4, v5, .magenta);
  17. l10 = .l.vv(v3, v5, .magenta);
  18. l11 = .l.vlperp(v4, l1, .invisible);
  19. l12 = .l.vlperp(v5, l11, .invisible, .longline);
  20. l13 = .l.vlperp(v3, l12, .invisible);
  21. v6 = .v.ll(l12, l11);
  22. v7 = .v.ll(l2, l7);
  23. v8 = .v.ll(l2, l12);
  24. v9 = .v.ll(l11, l1);
  25. l14 = .l.vv(v3, v8, .invisible);
  26. l15 = .l.vv(v6, v5, .invisible);
  27. l16 = .l.vlperp(v3, l14, .yellow);
  28. l17 = .l.vlperp(v8, l14, .yellow);
  29. c2 = .c.vv(v3, v8, .invisible);
  30. v13 = .v.lc(l16, c2, 2);
  31. l18 = .l.vlperp(v13, l16, .invisible, .longline);
  32. v14 = .v.ll(l18, l15);
  33. l19 = .l.vv(v8, v5);
  34. l21 = .l.vv(v13, v14, .yellow);
  35. l23 = .l.vv(v3, v8, .yellow);
  36. l24 = .l.vlpar(v4, l17, .invisible, .longline);
  37. v10 = .v.ll(l21, l24);
  38. l25 = .l.vv(v4, v10, .blue);
  39. l26 = .l.vv(v14, v10, .blue);
  40. l27 = .l.vv(v6, v4, .blue);
  41. l29 = .l.vv(v9, v6);
  42. l30 = .l.vv(v6, v14, .blue);
  43. .text("Pythagorean Theorem:");
  44. .text("");
  45. .text("A visual illustration of the pythagorean theorem.");
  46.